home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / nasir_ks < prev    next >
Internet Message Format  |  1995-03-31  |  40KB
  1. From: K. Sinenmaa <sinenmaa@cc.helsinki.fi>
  2. Subject:  v03i032:  nasir_ks - nasir v1.1, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Organization: University of Helsinki
  5. Followup-To: comp.sys.hp48
  6. Approved: spell@seq.uncwil.edu
  7.  
  8. Checksum: 1147924384 (verify with brik -cv)
  9. Submitted-by: K. Sinenmaa <sinenmaa@cc.helsinki.fi>
  10. Posting-number: Volume 3, Issue 32
  11. Archive-name: nasir_ks/part01
  12.  
  13. BEGIN_RDME nasir.rdm
  14. Hi,
  15.  
  16. I posted this program because there was so empty in this news group.
  17. I changed this program to handle the same sub-programs as the TYKO v2.2
  18. does. So I will try to post it also to this news group as soon as
  19. possible -- maybe  later in the spring.
  20. And if someone wants I can also join this program to the TYKO v2.2.
  21. It requires only 670 bytes more memory than the pure TYKO.
  22. Some features of TYKO;
  23.       DATA output the same as TYKO v2.1
  24.       Calendar selection, either Gregorian or Julian
  25.       Date limitation is off
  26.       The time zones of the north America
  27.       Day light saving time
  28.       Drawing the selected objects in the heliocentric coordinates
  29.       with the Earth and also the Moon is drawing
  30.  
  31. Happy  graphing
  32. kati
  33. END_RDME
  34.  
  35.  
  36.  
  37. BEGIN_DOC nasir.doc
  38.  
  39.              &&&    &&         &&&          &&&&     &&   &&&&&
  40.              && &   &&        && &&        &&  &&    &&   &&  &&
  41.              && &&  &&       &&   &&        &&       &&   &&   &&
  42.              &&  && &&      &&     &&        &&      &&   &&&&&
  43.              &&   & &&     &&&&&&&&&&&        &&     &&   && &&
  44.              &&    &&&    &&         &&    &&  &&    &&   &&  &&
  45.              &&     &&   &&           &&    &&&&     &&   &&   &&
  46.              *****************************************************
  47.  
  48.                            v1.1  1992  k. sinenmaa
  49.                                February 1th 1992
  50.  
  51.  
  52.     INTRODUCTION
  53.  
  54.        This program does the time changes both in the JULIAN Calendar
  55.        and the GREGORIAN Calendar dates. The date have to be  later than
  56.        March 1st 4712 BC. The Calendar must be selected before calculations
  57.        from the SETUP menus.
  58.        Also the Sun's data is available contains the equatorial and hori-
  59.        zon coordinates, rising and setting times and its geocentric distance.
  60.  
  61.     EXECUTABLE FILES
  62.  
  63.        SETUP    put user's coordinates and times
  64.        NASIR    main program
  65.        JDAY     a fast way to get a julian day number
  66.        CADA     a fast way to convert JDAY to calendar date
  67.        NOVA     shows the previous settings ( or current if ESC pressed )
  68.  
  69.     POPUP picture <nova>. Note, this is NOT valid before pressing
  70.                              the ESC key from the SETUP menu
  71.      48SX
  72.      ***************************
  73.      * NASIR v1.1  1992 by ks  *
  74.      * Calendar = GREGORIAN    *
  75.      * DLST = OFF              *
  76.      * Time Zone = User's      *
  77.      * [[ 5 2 1992 ]           * [[ day  month  year ]
  78.      *  [ 60 2 25 ]            *  [ latitude  zone  longitude ]
  79.      *  [ 0 19.45 17.45 ]      *  [ DLST  time   time at zero longitude = UT ]
  80.      ***************************
  81.  
  82.     SETUP: two pages
  83.  
  84.        DATE   form is DD MM YYYY, the preceding zeros are not essential
  85.        TIME   must be entered in the 24-hour system
  86.        LATIT  latitude is between -90 and +90 degrees, must be as decimals
  87.        LONG   longitude range is 0 to 180, westerns are negatives, as decimals
  88.        ZONE   gives to you a new temporary menu, below
  89.        ESC    store the new values to the variables, must be done
  90.  
  91.        DL.ON  Day Ligth Saving Time ON  not automatic, user's take care of it
  92.        DLOFF  Day Ligth Saving Time OFF
  93.        JUL.C  the calendar selection, JULIAN is ON
  94.        GRE.C  the calendar selection, GREGORIAN is ON
  95.  
  96.     SETUP >> ZONE: two pages, contains the time zones of the North America
  97.  
  98.        USER  an user can put his or her own time zones, westerns are negatives
  99.        EST   Eastern Standard Time, zone= -5 , longitude about -75  degrees
  100.        CST   Central                      -6                   -90
  101.        MST   Mountain                     -7                   -105
  102.        PST   Pasific                      -8                   -120
  103.        BACK  back to the first temporary menu
  104.  
  105.        AST   Alaska                       -9                   -135
  106.        HST   Havaii                       -10                  -140
  107.  
  108.             NOTE; if you change these variables you must also change the
  109.                   LONG (longitude) variable. Press ESC when ready to leave
  110.                   the SETUP menus
  111.  
  112.     NASIR; main program                        SETUP >> JUL.C or GRE.C
  113.  
  114.        JDAY  calendar date to Julian Day number: DATE TIME
  115.        CONV  Julian Day number to calendar date: none, 1 number from the STACK
  116.        CT.ST Civil Time to Sidereal Time       : DATE TIME LONG ZONE DLST
  117.        ST.CT Sidereal Time to Civil Time       : DATE TIME LONG ZONE DLST
  118.        CLEAR clears the stack                  : none
  119.        SUN   calculates the SUN's position     : DATE TIME LATIT LONG ZONE DLST
  120.  
  121.        JDAY and CADA can be run also as the independent programs, take their
  122.        variables from the stack.
  123.        JDAY >> three values, DD MM YYYY. result is Julian Day number
  124.        CADA >> one value, result is a string contains calendar date
  125.  
  126.     APPREVIATIONS of the main program
  127.  
  128.        GreCal:     Julian day number counted in the Gregorian calendar
  129.        JulCal:                                      Julian calendar
  130.        Jday: Julian day number and its fraction part, correspond to the UT
  131.        " GREGORIAN" or " JULIAN"                          current calendar
  132.        UT:         Julian day number's fractional part converted to the UT
  133.        GW 0UT:     mean sidereal time at 0 UT at the longitude of GreenWich
  134.        GWmST:      mean sidereal time at the defined time in GreenWich
  135.        LMST:       local mean sidereal time at the defined time and longitude
  136.        CT:         mean sidereal time converted to the civil time
  137.  
  138.          NOTE: if the GWmST = 0 then the CT: shows the Greenwich transit
  139.                of the mean equinox.
  140.  
  141.     SUN's results
  142.  
  143.        greek letter Alfa= Right Ascension* = R.A.  hh.mmss      equatorial
  144.                    Delta= Declination*             dd.mmss      coordinates
  145.                      Azi= Azimuth   dd.mmss    horizon
  146.                      Alt= Altitude  dd.mmss    coordinates
  147.                     Rise= rising time
  148.                      Set= setting time
  149.                        R= geocentric distance
  150.                       LT= civil time
  151.  
  152.             * apparent R.A. and apparent declination
  153.  
  154.        The reference point of the right ascension is the direction of
  155.        the vernal equinoxes ( the first point of Aries ). This occurs when
  156.        the Sun is in this direction ( about March 21st ). R.A. gets all
  157.        values counterclockwise from zero to 360 degrees but usually the
  158.        degrees are converted to the 24-hour system as this program does.
  159.        The reference plane of the declination is the Earth's orbit plane.
  160.        This number can get values (in the case of Sun) about -23 to 23
  161.  
  162.        This program counts the Azimuth  to the clockwise from the South
  163.        on the northern hemisphere and from the North on the Southern hemis-
  164.        phere and it gets all values between 0 and 360 degrees. E.g. if
  165.        Azi= 90 deg. then the Sun is about in the West (if LATIT is positive).
  166.        Altitude can have the values from -89.59... to 89.59... degrees
  167.        where the zero plane is an observer's horizon plane.
  168.  
  169.        Distance unit is in the AU (=Astromical Unit = 1.49597870E11 meters ).
  170.  
  171.        The accuracy of the R.A. and Declination is few secons within
  172.        about two decade from the present -- to the past and future.
  173.        To the others the precision is not as good as this.
  174.  
  175.  
  176.     REFERENCES
  177.  
  178.            Quarterly Journal of Royal Astronomical Society, 25(1),54(1984)
  179.            The Astronomical Almanac 1991
  180.            Practical Astronomy with Your Calculator, 3rd edition
  181.            The Astrophysical Journal Supplement Series, 41:391-411,1979 Nov.
  182.  
  183. END_DOC
  184.  
  185.  
  186.  
  187. BEGIN_RPL nasir.rpl
  188. %%HP: T(3)A(D)F(.);
  189. DIR
  190.   NASIR
  191. \<< { { "JDAY"
  192.   \<< DY M Y JDAY DUP
  193. 5 - LT 24 / +
  194. "Jday" \->TAG
  195.   \>> } { "CONV"
  196.   \<< JG SWAP DUP FP
  197. DUP
  198.     IF .5 <
  199.     THEN SWAP
  200.     ELSE SWAP .5 +
  201.     END SWAP 24 *
  202. 12 + F24 \->HMS "UT"
  203. \->TAG SWAP CADA
  204.   \>> } { "CT.ST"
  205.   \<< DY M Y JDAY .5
  206. - JUJU LT TZ - DL -
  207. 1.00273790935 * +
  208. F24 DUP \->HMS
  209. "GWmST" \->TAG SWAP
  210. \GlM 15 / + F24 \->HMS
  211. "LMST" \->TAG
  212.   \>> } { "ST.CT"
  213.   \<< DY M Y JDAY .5
  214. - JUJU LT \GlM 15 / -
  215. F24 DUP \->HMS
  216. "GWmST" \->TAG SWAP
  217. ROT - F24
  218. 99726956633 * \->HMS
  219. "CT" \->TAG
  220.   \>> } { "CLEAR"
  221.   \<< CLEAR
  222.   \>> } { "SUN"
  223.   \<< MISC
  224. NALT 5 FIX "\Ga= " \Ga
  225. 15 / \->HMS \->STR +
  226. " " DT + + "
  227. \Gd= " \Gd
  228. \->HMS \->STR + +
  229. "
  230. Azi= " A \->HMS
  231. \->STR + + "
  232. Alt= " a
  233. \->HMS \->STR + +
  234. "
  235. Rise= " RI \->STR +
  236. + "
  237. Set= " SE \->STR
  238. + + "
  239. R= " r \->STR +
  240. + " LT=" LT \->STR +
  241. + CLLCD 1 DISP 3
  242. FREEZE STD { RI SE
  243. A a \Gd \Ga \GlS r \Ge LM \GW
  244. LS GS G2 G4 G5 T UT
  245. ST t C DT JD }
  246. PURGE
  247.   \>> } } TMENU NOVA
  248. \>>
  249. JDAY
  250. \<< STD \-> DY M Y
  251.   \<<
  252.     IF M 3 \>=
  253.     THEN M 3 - Y
  254.     ELSE M 9 + Y 1
  255. -
  256.     END DUP 4712 +
  257. 365.25 * IP ROT
  258. 30.6 * .5 + IP 59
  259. DY + + + DUP ROT
  260. 100 / 49 + IP .75 *
  261. IP 38 - - "GreCal"
  262. \->TAG SWAP "JulCal"
  263. \->TAG
  264.     IF JG SIZE 7 ==
  265.     THEN SWAP DROP
  266.     ELSE DROP
  267.     END
  268.   \>>
  269. \>>
  270. CADA
  271. \<< STD IP \-> J
  272.   \<< J 1 + 7 / FP 7
  273. * 0 RND 1 + {
  274. "Sun " "Mon "
  275. "Tue " "Wed "
  276. "Thu " "Fri "
  277. "Sat " } SWAP GET
  278.     IF JG SIZE 10
  279. ==
  280.     THEN J 4479.5 -
  281. 36524.25 / IP .75 *
  282. 5 + IP 37 - J +
  283.     ELSE J
  284.     END DUP 59.25 -
  285. DUP 365.25 / IP
  286. 365.25 * - IP DUP
  287. 5 + DUP 30.6 / IP
  288. 30.6 * - IP 1 +
  289. SWAP .5 + 30.6 / IP
  290. 2 + DUP 12 / IP 12
  291. * - 1 + ROT 365.25
  292. / IP 4712 - DUP DUP
  293. ABS 10 SWAP \->STR
  294. SIZE DUP 2 + ROT
  295. ROT ^ DUP 6 ROLL *
  296. 5 ROLL ABS + SWAP
  297. 100 * / 4 ROLL +
  298. ROT
  299.     IF 0 <
  300.     THEN NEG
  301.     END SWAP FIX
  302. \->STR + STD
  303.   \>>
  304. \>>
  305. SETUP
  306. \<< -42 SF { { "DATE"
  307.   \<<
  308. "DATE-form DD MM YYYY"
  309. ":DATE:" INPUT OBJ\->
  310. LIST { 1 3 } ROT
  311. PUT { 1 2 } ROT PUT
  312. { 1 1 } ROT PUT
  313. 'LIST' STO NOVA
  314.   \>> } { "TIME"
  315.   \<<
  316. "TIME-format HH.MMSS"
  317. ":TIME:" INPUT OBJ\->
  318. LIST { 3 2 } ROT
  319. PUT 'LIST' STO NOVA
  320.   \>> } { "LATIT"
  321.   \<<
  322. "Latitude in decimals"
  323. "
  324. -90  < \O/ <  90
  325. "
  326. + ":\O/:" INPUT OBJ\->
  327. LIST { 2 1 } ROT
  328. PUT 'LIST' STO NOVA
  329.   \>> } { "LONG"
  330.   \<<
  331. "Longitude in decimals"
  332. "
  333. West=neg
  334. " +
  335. ":\Gl:" INPUT OBJ\->
  336. LIST { 2 3 } ROT
  337. PUT 'LIST' STO NOVA
  338.   \>> } { "ZONE"
  339.   \<< { { "USER"
  340.     \<<
  341. "Integer  -12  to  12"
  342. "
  343. West=neg
  344. " +
  345. ":Time Zone:" INPUT
  346. OBJ\-> LIST { 2 2 }
  347. ROT PUT 'LIST' STO
  348. " User's" 'DZ' STO
  349. NOVA
  350.     \>> } { "EST"
  351.     \<< LIST { 2 2 }
  352. -5 PUT 'LIST' STO
  353. " EST" 'DZ' STO
  354. NOVA
  355.     \>> } { "CST"
  356.     \<< LIST { 2 2 }
  357. -6 PUT 'LIST' STO
  358. " CST" 'DZ' STO
  359. NOVA
  360.     \>> } { "MST"
  361.     \<< LIST { 2 2 }
  362. -7 PUT 'LIST' STO
  363. " MST" 'DZ' STO
  364. NOVA
  365.     \>> } { "PST"
  366.     \<< LIST { 2 2 }
  367. -8 PUT 'LIST' STO
  368. " PST" 'DZ' STO
  369. NOVA
  370.     \>> } { "BACK"
  371.     \<< 0 MENU NOVA
  372.     \>> } { "AST"
  373.     \<< LIST { 2 2 }
  374. -9 PUT 'LIST' STO
  375. " AST" 'DZ' STO
  376. NOVA
  377.     \>> } { "HST"
  378.     \<< LIST { 2 2 }
  379. -10 PUT 'LIST' STO
  380. " HST" 'DZ' STO
  381. NOVA
  382.     \>> } } TMENU
  383. NOVA
  384.   \>> } { "ESC"
  385.   \<< { LT DL \GlM TZ \O/
  386. Y M DY } \-> i
  387.     \<< LIST OBJ\->
  388. DROP2 HMS\-> 1 8
  389.       FOR j i j GET
  390. STO LIST { 3 3 } LT
  391. \->HMS TZ - DL - F24
  392. PUT 'LIST' STO
  393.       NEXT
  394.     \>> 2 MENU
  395.   \>> } { "DL.ON"
  396.   \<< " ON" 'DLST'
  397. STO LIST { 3 1 } 1
  398. PUT 'LIST' STO NOVA
  399.   \>> } { "DLOFF"
  400.   \<< " OFF" 'DLST'
  401. STO LIST { 3 1 } 0
  402. PUT 'LIST' STO NOVA
  403.   \>> } { "JUL.C"
  404.   \<< " JULIAN" 'JG'
  405. STO NOVA
  406.   \>> } { "GRE.C"
  407.   \<< " GREGORIAN"
  408. 'JG' STO NOVA
  409.   \>> } } TMENU NOVA
  410. \>>
  411. NOVA
  412. \<< STD
  413. "NASIR v1.1  1992 by KS"
  414. "
  415. Calendar =" JG +
  416. + "
  417. DLST =" DLST +
  418. + "
  419. Time Zone =" DZ
  420. + + "
  421. " + LIST \->STR
  422. + CLLCD 1 DISP 3
  423. FREEZE
  424. \>>
  425. MISC
  426. \<< CLLCD "WAIT ..."
  427. 1 DISP DY M Y JDAY
  428. 5 - DUP LT TZ - DL
  429. - F24 24 / + 'JD'
  430. STO 1.5 + 7 / FP 7
  431. * 0 RND 1 + {
  432. "Sun " "Mon "
  433. "Tue " "Wed "
  434. "Thu " "Fri "
  435. "Sat " } SWAP GET Y
  436. ABS \->STR SIZE DUP 2
  437. + 10 ROT ^ DUP M *
  438. Y ABS + SWAP 100 *
  439. / DY +
  440.   IF Y 0 <
  441.   THEN NEG
  442.   END SWAP FIX \->STR
  443. + 'DT' STO STD JD
  444. 2451545 - DUP 'C'
  445. STO 36525 / 't' STO
  446. JD JUJU LT TZ - DL
  447. - 1.00273790935 * +
  448. \GlM 15 / + F24 'ST'
  449. STO HMS\-> 'UT' STO t
  450. 1 + 'T' STO .606434
  451. 03660110129 C * +
  452. 347343
  453. 00014709391 C * -
  454. 779072
  455. 00273790931 C * +
  456. 993126 .0027377785
  457. C * + .140023
  458. 00445036173 C * +
  459. 053856
  460. 00145561327 C * +
  461. 056531
  462. 00023080893 C * +
  463. { G5 G4 G2 GS LS \GW
  464. LM } DEG \-> i
  465.   \<< 1 7
  466.     FOR j FP 360 *
  467. i j GET STO
  468.     NEXT 84428 47 T
  469. * - 9 \GW COS * +
  470. 3600 / '\Ge' STO CASU
  471. OBJ\-> DROP EVAL SWAP
  472. EVAL ROT EVAL \-> W U
  473. V
  474.     \<< W U V 2 ^ - \v/
  475. / ASIN LS + F36 '\Ga'
  476. STO V U \v/ / ASIN
  477. '\Gd' STO 1.000215 U
  478. \v/ * 'r' STO -16 CF
  479. \Gd COS \Ga COS * \Gd
  480. SIN \Ge SIN * \Gd COS
  481. \Ge COS \Ga SIN * * +
  482. \->V2 -16 SF V\-> F36
  483. '\GlS' STO DROP
  484.     \>>
  485.   \>>
  486. \>>
  487. CASU
  488. { '.39785*SIN(LS)-
  489. 01*SIN(LS-GS)+
  490. 00333*SIN(LS+GS)-
  491. 00021*T*SIN(LS)+
  492. 00004*SIN(LS+2*GS)
  493. -.00004*COS(LS)-
  494. 00004*SIN(\GW-LS)+
  495. 00003*T*SIN(LS-GS)
  496. ' '1-.03349*COS(GS)
  497. -.00014*COS(2*GS)+
  498. 00008*T*COS(GS)-
  499. 00003*SIN(GS-G5)' 
  500. '-.04129*SIN(2*LS)+
  501. 03211*SIN(GS)+
  502. 00104*SIN(2*LS-GS)
  503. -.00035*SIN(2*LS+GS
  504. )-.0001-.00008*T*
  505. SIN(GS)-.00008*SIN(
  506. \GW)+.00007*SIN(2*GS)
  507. +.00005*T*SIN(2*LS)
  508. +.00003*SIN(LM-LS)-
  509. 00002*COS(GS-G5)+
  510. 00002*SIN(4*GS-8*
  511. G4+3*G5)-.00002*SIN
  512. (GS-G2)-.00002*COS(
  513. 2*GS-2*G2)' }
  514. DLST
  515. " OFF"
  516. F36
  517. \<< DUP 360 / IP 360
  518. * -
  519.   IF DUP 0 <
  520.   THEN 360 +
  521.   END
  522. \>>
  523. F24
  524. \<< DUP 24 / IP 24 *
  525. -
  526.   IF DUP 0 <
  527.   THEN 24 +
  528.   END
  529. \>>
  530. JUJU
  531. \<< 2451545 - 36525 /
  532. DUP DUP 3 ^
  533. -.0000062 * .093104
  534. ROT 2 ^ * +
  535. 8640184.81287 ROT *
  536. + 24110.54841 +
  537. 3600 / F24 DUP \->HMS
  538. "GW 0UT" \->TAG SWAP
  539. \>>
  540. LIST
  541. [[ 15 12 1990 ]
  542.  [ 60 0 0 ]
  543.  [ 0 0 0 ]]
  544. NALT
  545. \<< -16 CF ST 15 * \Ga
  546. - \-> h
  547.   \<< h COS \Gd COS \O/
  548. COS * * \Gd SIN \O/ SIN
  549. * + ASIN 'a' STO h
  550. COS \Gd COS \O/ SIN * *
  551. \Gd SIN \O/ COS * - h
  552. SIN \Gd COS * \->V2 -16
  553. SF V\-> F36 'A' STO
  554. DROP \Gd TAN \O/ TAN *
  555. DUP
  556.     IF ABS 1 >
  557.     THEN DROP
  558.       IF a 0 >
  559.       THEN
  560. "Continuous"
  561.       ELSE "    No"
  562.       END
  563. "phenomenon"
  564.     ELSE NEG ACOS \Ga
  565. OVER - 15 / UT -
  566. SWAP \Ga + 15 / UT -
  567. \Gd ABS
  568.       IF \O/ 0 >
  569.       THEN \O/ + 9.4
  570. / SIN DUP ROT + ROT
  571. ROT -
  572.       ELSE \O/ NEG +
  573. 9.3 / SIN DUP ROT +
  574. ROT ROT -
  575.       END TZ 15 *
  576. \GlM - 15 / DUP ROT +
  577. DL + F24 \->HMS SWAP
  578. ROT + DL + F24 \->HMS
  579.     END 'SE' STO
  580. 'RI' STO -16 CF
  581.   \>>
  582. \>>
  583. JG
  584. " GREGORIAN"
  585. DY
  586. 31
  587. M
  588. 2
  589. Y
  590. 1992
  591. \O/
  592. 60
  593. TZ
  594. 2
  595. \GlM
  596. 25
  597. DL
  598. 0
  599. LT
  600. 23.59
  601. DZ
  602. " User's"
  603. END_RPL
  604.  
  605. BEGIN_ASC nasir.asc
  606. %%HP: T(3)A(D)F(.);
  607. "69A20FF74EF20000002044A520C2A2031000025537562772370200020C445203
  608. 39201000000000095320D10002044C420339200000000000000000D10002069D
  609. 420339201000000000000520D10002045A520339200000000000000020D10001
  610. 08D10339201000000000000060B1000109510339203000000000029910B10001
  611. 0D410339200000000000000020B100020449520339201000000000000130D100
  612. 020A47420C2A20910000274255474F4259414E46200040E414C44540D9D20E16
  613. 323392010000000000006195D2C184E20203545339201000000000000510EEDA
  614. 184E2010C890DA11C432D6E201086E1632D6E201086505B184E201029505B184
  615. E20108D505B1EEDA1EEDA184E201029CA4B184E20108DCA4B1EEDA176BA14A6B
  616. 14563284E20101697632DCC02D6E201086505B184E201029505B184E20108DCA
  617. 4B1EEDA1EEDA184E201029CA4B184E20108D505B1EEDA190DA1D6E201086CA4B
  618. 184E201029505B1EEDA166ED1339201000000000000619472C160DD184E20306
  619. 433634563284E20101497632DCC028DBF184E201029E55B184E20108DE55B1EE
  620. DA178BF13CE22F1AA19C2A2D5CE1AFE22D9D208DBF13CE2284E2010164B2A2D5
  621. CE1AFE22C2A209100034F6E64796E657F657375BF22C2A201100002020202E4F
  622. 65DF22C2A2091000078656E6F6D656E6F6E6B21305BF22D9D20599A1F27B184E
  623. 2010C892CF190DA133920100000000000051050FA184E2020554590DA1DBBF18
  624. 4E2010C876BA133920100000000000051050FA184E2020554590DA184E201029
  625. F1AA13CE2284E20108D4B2A2D5CE1AFE22D9D2084E20108D76BA133920000000
  626. 000000049050FA1CA4B178BF1E0CF176BA1E0CF1E0CF190DA1B21305BF22D9D2
  627. 084E20108D599A176BA133920000000000000039050FA1CA4B178BF1E0CF176B
  628. A1E0CF1E0CF190DA1B21305DF2284E202045A5339201000000000000510EEDA1
  629. 84E202069D490DA133920100000000000051050FA178BF1E0CF176BA184E2020
  630. 44C476BA184E2030642343E1FB1DBBF1E0CF176BA184E202044C476BA184E203
  631. 0642343E1FB1B21305DF224563284E2020355497632DCC024563284E20202594
  632. 97632DCC023392010000000000006195D2C1EF53293632B21307050040C49435
  633. 45408E9209A00033920200003000030000100000000000051010000000000002
  634. 1030000000000099101000000000000060000000000000000000000000000000
  635. 00000000000000000000000000000000000000000000000000AB00040A455A45
  636. 540D9D20E163233920600000005451542090DA133920400000000052563050FA
  637. 178BF178BF13F2A2D20B1339204990000000000269EEDA133920899000000040
  638. 1390E0CF1ED2A2D20B1EEDA176BA1339206007821848104680E0CF1EEDA176BA
  639. 133920400001484501142076BA133920300000000000063050FA184E20306423
  640. 4378BF1E1FB1C2A2011000747502035545EB522DBBF193632B2130F310030642
  641. 34330D9D20E163278BF133920100000000000042050FA1D6BB13392010000000
  642. 00000420EEDA190DA13CE2278BF14B2A2EBBE1AFE22D9D203392010000000000
  643. 0042076BA1B21305DF2293632B21303A0003064336330D9D20E163278BF13392
  644. 0200000000000063050FA1D6BB1339202000000000000630EEDA190DA13CE227
  645. 8BF14B2A2EBBE1AFE22D9D2033920200000000000063076BA1B21305DF229363
  646. 2B21303A0004044C4354540C2A20D000002F46464E100040341435554047A208
  647. BA2033920999000000058793084E2020C435CA4B1EEDA19C2A284E2020C43584
  648. E2020743590DA1CA4B1EEDA190DA133920200000000000333084E2020C43584E
  649. 2020743576BA1CA4B1EEDA176BA133920100000000000012084E201045EEDA18
  650. 4E2020C435CA4B1EEDA190DA1803A284E2020C435ED2A284E20207435EEDA176
  651. BA1CA4B1EEDA176BA133920599000000000004084E2020C435505B1EEDA190DA
  652. 1803A284E2010D984E2020C43590DA1CA4B1EEDA190DA13F2A284E201045EEDA
  653. 184E2020C43584E2020743590DA1CA4B1EEDA176BA1B21308BA209C2A2339208
  654. 99000000009433084E20207435505B1EEDA190DA1339206990000000000410ED
  655. 2A284E20207435EEDA1505B1EEDA190DA1C53A284E201045EEDA184E20207435
  656. 505B1EEDA176BA13F2A284E2020743584E2020745390DA1CA4B1EEDA190DA1B2
  657. 1308BA20339208990000000092149ED2A284E2020C435EEDA1CA4B1EEDA13392
  658. 0300000000001123084E20207435CA4B1EEDA176BA1339202000000000004010
  659. ED2A284E2020C435EEDA184E2020743590DA1CA4B1EEDA176BA1339206990000
  660. 000000530ED2A284E2020C435EEDA184E2020743576BA1CA4B1EEDA190DA1339
  661. 20699000000000001090DA133920599000000000008084E201045EEDA184E202
  662. 07435CA4B1EEDA190DA133920599000000000008084E2010D9CA4B1EEDA190DA
  663. 1339205990000000000070ED2A284E20207435EEDA1CA4B1EEDA176BA1339205
  664. 99000000000005084E201045EEDA1ED2A284E2020C435EEDA1CA4B1EEDA176BA
  665. 133920599000000000003084E2020C4D484E2020C43590DA1CA4B1EEDA176BA1
  666. ED2A284E2020743584E2020745390DA1505B1EEDA190DA1ED2A2803A284E2020
  667. 7435EEDA1C53A284E20207443EEDA190DA13F2A284E20207453EEDA176BA1CA4
  668. B1EEDA176BA133920599000000000002084E2020743584E2020742390DA1CA4B
  669. 1EEDA190DA1339205990000000000020ED2A284E20207435EEDA1ED2A284E202
  670. 07423EEDA190DA1505B1EEDA190DA1B2130B2130AF50040D494353440D9D20E1
  671. 632858A1C2A20510007514944502E2E2E29C2A2485A184E2020449584E2010D4
  672. 84E20109584E2040A4441495D13A290DA178BF184E2020C44584E202045A590D
  673. A184E202044C490DA184E203064234333920100000000000042050FA176BA145
  674. 63284E2020A44497632DCC0233920000000000000051076BA1743A250FA13ABB
  675. 1743A2EEDA14B2A255DB19C2A276BA147A20C2A20D00003557E602C2A20D0000
  676. D4F6E602C2A20D000045575602C2A20D000075564602C2A20D000045865702C2
  677. A20D000064279602C2A20D000035164702B2130DBBF16C7D184E201095F1AA1B
  678. 0BC18B9C178BF1ED2A276BA1339201000000000000010E0CF1D20B178BF184E2
  679. 010D4EEDA184E201095F1AA176BA1DBBF1339202000000000000010EEDA150FA
  680. 184E2020449576BA13CE2284E2010954B2A2EBBE1AFE22599A15DF22DBBF1AE3
  681. C1B0BC176BA14563284E2020444597632DCC02684C184E2020A4443392060000
  682. 0005451542090DA178BF14563284E20103497632DCC023392040000000005256
  683. 3050FA14563284E20104797632DCC0284E2020A44484E2040A455A45584E2020
  684. C44584E202045A590DA184E202044C490DA1339200005390973720010EEDA176
  685. BA184E202069D433920100000000000051050FA176BA184E2030642343456328
  686. 4E2020354597632DCC02E3FB14563284E2020554597632DCC0284E2010479C2A
  687. 276BA14563284E20104597632DCC023392099900000043460603392090000921
  688. 0110663084E201034EEDA176BA13392050000000034374303392070000001939
  689. 0741084E201034EEDA190DA13392050000000027097703392080000013909737
  690. 2084E201034EEDA176BA13392050000000062139903392079900005877737208
  691. 4E201034EEDA176BA133920999000000320041033920800000371630544084E2
  692. 01034EEDA176BA133920400000000065835033920800000723165541084E2010
  693. 34EEDA176BA133920400000000013565033920700000039808032084E201034E
  694. EDA176BA147A2084E2020745384E2020744384E2020742384E2020743584E202
  695. 0C43584E2010D984E2020C4D4B2130993C11C432D6E201096E16329C2A2743A2
  696. 0A132D6E2010A63ABB1339202000000000000630EEDA1D6E201096D6E2010A66
  697. C7D1DCC02C423233920400000000082448033920100000000000074084E20104
  698. 5EEDA190DA1173A284E2010D9505B1EEDA176BA133920300000000000063050F
  699. A14563284E20103997632DCC0284E204034143555B7FC18DBF1EB3A1DBBF1EB3
  700. A1E0CF1EB3A11C432D6E201075D6E201055D6E201065E1632D6E201075D6E201
  701. 055D6E201065ED2A2D20B190DA1473B150FA14A6B184E2020C43576BA184E203
  702. 06433634563284E2010C897632DCC02D6E201065D6E201055473B150FA14A6B1
  703. 4563284E20102997632DCC02339200000000051200010D6E201055473B1EEDA1
  704. 4563284E20102797632DCC023392010000000000006195D2C184E201029505B1
  705. 84E2010C8505B1EEDA184E201029CA4B184E201039CA4B1EEDA184E201029505
  706. B184E201039505B184E2010C8CA4B1EEDA1EEDA176BA166ED133920100000000
  707. 0000619472C160DD184E20306433634563284E2020693597632DCC028DBF1EF5
  708. 32EF53293632B21304690040E4F4651440D9D20E1632684C1C2A2013000E4143
  709. 59425026713E21302021393932302269702B435C2A20B1000A03416C656E6461
  710. 62702D384E2020A47476BA176BA1C2A2031000A044C4354502D384E204044C43
  711. 54576BA176BA1C2A20D1000A04596D65602A5F6E65602D384E202044A576BA17
  712. 6BA1C2A2070000A076BA184E2040C4943545B0BC176BA1858A19C2A2485A13F2
  713. A24A5A193632B2130B310050355445550550D9D20E1632339201000000000000
  714. 249472C147A2047A20C2A20D000044144554D9D20E1632C2A20D200044144554
  715. D266F627D602444402D4D40295959595C2A2011000A344144554A3AC422B7FC1
  716. 84E2040C494354547A209C2A23F2A2B2130E0CF1704D147A209C2A2ED2A2B213
  717. 0E0CF1704D147A209C2A29C2A2B2130E0CF1704D14563284E2040C4943545976
  718. 32DCC0284E2040E4F4651493632B2130B213047A20C2A20D00004594D454D9D2
  719. 0E1632C2A20B20004594D454D266F627D61647028484E2D4D43535C2A2011000
  720. A34594D454A3AC422B7FC184E2040C494354547A203F2A2ED2A2B2130E0CF170
  721. 4D14563284E2040C494354597632DCC0284E2040E4F4651493632B2130B21304
  722. 7A20C2A20F0000C414459445D9D20E1632C2A20D2000C4164796475746560296
  723. E60246563696D616C637C2A2052000A0D293030202C3028D02C302029303A076
  724. BA1C2A20B0000A38DA3AC422B7FC184E2040C494354547A20ED2A29C2A2B2130
  725. E0CF1704D14563284E2040C494354597632DCC0284E2040E4F4651493632B213
  726. 0B213047A20C2A20D0000C4F4E474D9D20E1632C2A20F2000C4F6E6769647574
  727. 6560296E60246563696D616C637C2A2091000A075563747D3E65676A076BA1C2
  728. A20B0000A369A3AC422B7FC184E2040C494354547A20ED2A23F2A2B2130E0CF1
  729. 704D14563284E2040C494354597632DCC0284E2040E4F4651493632B2130B213
  730. 047A20C2A20D0000A5F4E454D9D20E163247A2047A20C2A20D000055355425D9
  731. D20E1632C2A20D200094E647567656270202D21323020247F602021323C2A209
  732. 1000A075563747D3E65676A076BA1C2A20B1000A34596D65602A5F6E656A3AC4
  733. 22B7FC184E2040C494354547A20ED2A2ED2A2B2130E0CF1704D14563284E2040
  734. C494354597632DCC02C2A2031000025537562772374563284E202044A597632D
  735. CC0284E2040E4F4651493632B2130B213047A20C2A20B0000543545D9D20E163
  736. 284E2040C494354547A20ED2A2ED2A2B2130AD3A2704D14563284E2040C49435
  737. 4597632DCC02C2A20D0000025435454563284E202044A597632DCC0284E2040E
  738. 4F4651493632B2130B213047A20C2A20B0000343545D9D20E163284E2040C494
  739. 354547A20ED2A2ED2A2B2130FE3A2704D14563284E2040C494354597632DCC02
  740. C2A20D0000023435454563284E202044A597632DCC0284E2040E4F4651493632
  741. B2130B213047A20C2A20B0000D43545D9D20E163284E2040C494354547A20ED2
  742. A2ED2A2B2130404A2704D14563284E2040C494354597632DCC02C2A20D000002
  743. D435454563284E202044A597632DCC0284E2040E4F4651493632B2130B213047
  744. A20C2A20B0000053545D9D20E163284E2040C494354547A20ED2A2ED2A2B2130
  745. 914A2704D14563284E2040C494354597632DCC02C2A20D000002053545456328
  746. 4E202044A597632DCC0284E2040E4F4651493632B2130B213047A20C2A20D000
  747. 0241434B4D9D20E16324B2A26911284E2040E4F4651493632B2130B213047A20
  748. C2A20B0000143545D9D20E163284E2040C494354547A20ED2A2ED2A2B2130E24
  749. A2704D14563284E2040C494354597632DCC02C2A20D0000021435454563284E2
  750. 02044A597632DCC0284E2040E4F4651493632B2130B213047A20C2A20B000084
  751. 3545D9D20E163284E2040C494354547A20ED2A2ED2A2B2130339201000000000
  752. 000019704D14563284E2040C494354597632DCC02C2A20D00000284354545632
  753. 84E202044A597632DCC0284E2040E4F4651493632B2130B2130B2130D511284E
  754. 2040E4F4651493632B2130B213047A20C2A20B0000543534D9D20E163247A208
  755. 4E2020C44584E202044C484E202069D484E202045A584E20108D84E20109584E
  756. 2010D484E20204495B21301C432D6E201096E163284E2040C4943545B7FC13FB
  757. F1E3FB19C2A2C53A20A132D6E2010A6D6E201096D6E2010A66C7D1DCC0284E20
  758. 40C494354547A203F2A23F2A2B213084E2020C445E1FB184E202045A590DA184
  759. E202044C490DA184E2030642343704D14563284E2040C494354597632DCC02C4
  760. 232EF532ED2A26911293632B2130B213047A20C2A20F000044C4E2F4E4D9D20E
  761. 1632C2A20B000002F4E44563284E204044C4354597632DCC0284E2040C494354
  762. 547A203F2A29C2A2B21309C2A2704D14563284E2040C494354597632DCC0284E
  763. 2040E4F4651493632B2130B213047A20C2A20F000044C4F46464D9D20E1632C2
  764. A20D000002F464644563284E204044C4354597632DCC0284E2040C494354547A
  765. 203F2A29C2A2B21304B2A2704D14563284E2040C494354597632DCC0284E2040
  766. E4F4651493632B2130B213047A20C2A20F0000A455C4E234D9D20E1632C2A203
  767. 100002A455C49414E44563284E2020A47497632DCC0284E2040E4F4651493632
  768. B2130B213047A20C2A20F0000742554E234D9D20E1632C2A2091000027425547
  769. 4F4259414E44563284E2020A47497632DCC0284E2040E4F4651493632B2130B2
  770. 130B2130D511284E2040E4F4651493632B213005E00403414441440D9D20E163
  771. 2684C1D6BB11C432D6E2010A4E1632D6E2010A49C2A276BA1743A250FA13ABB1
  772. 743A2EEDA14B2A255DB19C2A276BA147A20C2A20D00003557E602C2A20D0000D
  773. 4F6E602C2A20D000045575602C2A20D000075564602C2A20D000045865702C2A
  774. 20D000064279602C2A20D000035164702B2130DBBF16C7D13CE2284E2020A474
  775. 8B9C1339201000000000000010279E1AFE22D9D20D6E2010A433920300000000
  776. 059744090DA133920400000005242563050FA1D6BB1339209990000000000570
  777. EEDA1D13A276BA1D6BB133920100000000000073090DA1D6E2010A476BA1B213
  778. 05BF22D6E2010A45DF2278BF133920100000000005295090DA178BF133920200
  779. 000000052563050FA1D6BB1339202000000000525630EEDA190DA1D6BB178BF1
  780. D13A276BA178BF133920100000000000603050FA1D6BB1339201000000000006
  781. 030EEDA190DA1D6BB19C2A276BA1DBBF133920999000000000005076BA133920
  782. 100000000000603050FA1D6BB1ED2A276BA178BF133920100000000000021050
  783. FA1D6BB1339201000000000000210EEDA190DA19C2A276BA1E0CF13392020000
  784. 0000052563050FA1D6BB133920300000000002174090DA178BF178BF1F1AA133
  785. 9201000000000000010DBBF1B0BC18B9C178BF1ED2A276BA1E0CF1E0CF1D20B1
  786. 78BF1233A25BCF1EEDA1D13A25BCF1F1AA176BA1DBBF13392020000000000000
  787. 10EEDA150FA1803A25BCF176BA1E0CF13CE224B2A2EBBE1AFE22599A15DF22DB
  788. BF1AE3C1B0BC176BA1684C1EF53293632B2130B740040A444149540D9D20E163
  789. 2684C11C432D6E20204495D6E2010D4D6E201095E16323CE22D6E2010D43F2A2
  790. B9DE1AFE22D9D20D6E2010D43F2A290DA1D6E201095B21305BF22D9D20D6E201
  791. 0D4173A276BA1D6E2010959C2A290DA1B21305DF2278BF133920300000000002
  792. 174076BA1339202000000000525630EEDA1D6BB1E0CF13392010000000000060
  793. 30EEDA133920999000000000005076BA1D6BB1339201000000000000950D6E20
  794. 20449576BA176BA176BA178BF1E0CF133920200000000000001050FA13392010
  795. 0000000000094076BA1D6BB1339209990000000000570EEDA1D6BB1339201000
  796. 00000000083090DA190DA1C2A20110007427563416C6EB522DBBF1C2A2011000
  797. A457C63416C6EB5223CE2284E2020A4748B9C1743A2279E1AFE22D9D20DBBF18
  798. DBF1B21305BF228DBF15DF22EF53293632B2130C720050E41435942550D9D20E
  799. 163247A2047A20C2A20D0000A4441495D9D20E163284E2020449584E2010D484
  800. E20109584E2040A444149578BF1D13A290DA184E2020C4453392010000000000
  801. 0042050FA176BA1C2A20D0000A4461697EB52293632B2130B213047A20C2A20D
  802. 000034F4E465D9D20E163284E2020A474DBBF178BF13ABB178BF13CE22339209
  803. 990000000000050EBBE1AFE22DBBF15BF22D9D20DBBF13392099900000000000
  804. 5076BA1B21305DF22DBBF1339201000000000000420EEDA13392010000000000
  805. 0021076BA184E2030642343E1FB1C2A20900005545EB522DBBF184E204034144
  806. 41493632B2130B213047A20C2A20F00003445E23545D9D20E163284E20204495
  807. 84E2010D484E20109584E2040A444149533920999000000000005090DA184E20
  808. 40A455A45584E2020C44584E202045A590DA184E202044C490DA133920000539
  809. 0973720010EEDA176BA184E203064234378BF1E1FB1C2A20F00007475D63545E
  810. B522DBBF184E202069D433920100000000000051050FA176BA184E2030642343
  811. E1FB1C2A20D0000C4D43545EB52293632B2130B213047A20C2A20F00003545E2
  812. 3445D9D20E163284E2020449584E2010D484E20109584E2040A4441495339209
  813. 99000000000005090DA184E2040A455A45584E2020C44584E202069D43392010
  814. 0000000000051050FA190DA184E203064234378BF1E1FB1C2A20F00007475D63
  815. 545EB522DBBF1E0CF190DA184E2030642343339200100336659627990EEDA1E1
  816. FB1C2A20900003445EB52293632B2130B213047A20C2A20F000034C4541425D9
  817. D20E1632BECF193632B2130B213047A20C2A20B00003555E4D9D20E163284E20
  818. 40D494353484E2040E414C445D13A2AE3C1C2A20B0000C8D30284E2010C83392
  819. 0100000000000051050FA1E1FB1B0BC176BA1C2A20700000284E2020444576BA
  820. 176BA1C2A20D0000A029D30284E201029E1FB1B0BC176BA176BA1C2A2011000A
  821. 014A796D30284E201014E1FB1B0BC176BA176BA1C2A2011000A014C647D30284
  822. E201016E1FB1B0BC176BA176BA1C2A2031000A025963756D30284E20202594B0
  823. BC176BA176BA1C2A2011000A0355647D30284E20203554B0BC176BA176BA1C2A
  824. 20D0000A025D30284E201027B0BC176BA176BA1C2A20D000002C445D384E2020
  825. C445B0BC176BA176BA1858A19C2A2485A13F2A24A5A1684C147A2084E2020259
  826. 484E2020355484E20101484E20101684E20102984E2010C884E2020693584E20
  827. 102784E20103984E2020C4D484E2010D984E2020C43584E2020743584E202074
  828. 2384E2020744384E2020745384E20104584E2020554584E2020354584E201047
  829. 84E20103484E2020444584E2020A444B2130EFE0293632B2130B2130B2130D51
  830. 1284E2040E4F4651493632B213028B7"
  831. END_ASC
  832.  
  833. BYTES: #7B82h 7159
  834.  
  835. BEGIN_UU nasir.uue
  836. begin 644 nasir
  837. M2%!(4#0X+466*O!_Y"\````"1%H"+"HP`0`@57-E<B=S(``@P$0E,),"`0``!
  838. M``"0-0(=`"!`Q"0PDP(``````````!T`( )#"3`@$``````%`"'0`@0*4E;
  839. M,),"``````````(=`!"`'3"3`@$````````&&P`0D!4PDP(#`````""9`1L`,
  840. M$-`4,),"``````````(;`"!`E"4PDP(!```````0`QT`(*!T),"B`AD``'(DC
  841. M573T))44Y&0"``1.04Q4!)TMX&$C,RD0````````%EDM'$@N(#!%-9,"`0``Q
  842. M````4`'NK8'D`@&,":T13"-M+A"`YF$C;2X0@%90&T@N$"!94!M(+A"`75`;W
  843. M[JWAWAI(+A`@R4H;2"X0@,U*&^ZM<;8:I+9!92-(+A`0EF<CS0S2Y@(!:`6U9
  844. M@>0"`9(%M8'D`@'8K+3AWAKNK8'D`@&2K+2!Y`(!V`6UX=X:":W1Y@(!:*RTI
  845. M@>0"`9(%M>'>&F;>,9,"`0``````8)%TPF'0'4@N,&`T8T-E(T@N$!"49R/-.
  846. M#(*]'T@N$"#I51M(+A"`[54;[JUQN!_#+O*A&LFBTL4>^B[2V0+8^S'L(D@NV
  847. M$!!&*RI=[*'O(BPJD`$`0V]N=&EN=6]U<[4OPJ("$0```@("XO16_2(L*I`!$
  848. M`'!H96YO;65N;VXK,5#[(ITM4)D:+[>!Y`(!C"G\D=`:,RD0````````%5#P$
  849. M&D@N(%!%E=`:O?N!Y`(!C&>K,9,"`0``````4`$%KX'D`@)55`FM@>0"`9(?\
  850. MJC'L(D@N$(!-*RI=[*'O(ITM@.0"`=AGJS&3`@```````$`)!:_!2AN'^^'`Q
  851. M'V>KX<`?#OR1T!HK,5#[(ITM@.0"`=B5J7&V&C,I`````````)-0\!JLM'&X!
  852. M'P[\<;8:#OSAP!\)K;$2`]4O@N0"`E1:,RD0````````%>#>&D@N( E-`:#
  853. M,RD0````````%5#P&H?[X<`?9ZN!Y`("1$QGJX'D`@-&,C0>O]&['P[\<;8:-
  854. M2"X@0,1TMAI(+C!@)$/C\1LK,5#](E0V@N0"`E-%>3;2S"!4-H+D`@)227DVS
  855. MTLP@,RD0````````%EDM'/XUDF,C*S%P4``$3$E35`3H*9`*`#,I(````P`P/
  856. M```!``````!0`0$``````"`!`P``````F0$!````````!@``````````````U
  857. M``````````````````````````````````````"Z`$"@5*541=#9`AXV,I,"&
  858. M!@```$4510()K3&3`@0`````)64#!:]QN!^'^S$O*BVP,9,"E`D`````();N&
  859. MK3&3`I@)````!#$)#OSA+2HML.'>&F>K,9,"!G`H@80!9`@._.'>&F>K,9,"S
  860. M!``0A%0000)GJS&3`@,``````&`#!:^!Y`(#1C(TA_OA\1LL*A`!`$=7(#!5Z
  861. M5+XETKL?.3:R$@,_`3!@)$,ST-D"'C9RN!\S*1`````````D4/`:;;LQDP(!I
  862. M``````!``NZMD=`:PRYRN!^THN*['OHNTMD",RD0````````)'"V&BLQ4/TB%
  863. M.3:R$@.C`#!@-&,ST-D"'C9RN!\S*2`````````V4/`:;;LQDP("``````!@3
  864. M`^ZMD=`:PRYRN!^THN*['OHNTMD",RD@````````-G"V&BLQ4/TB.3:R$@.C*
  865. M`$!`Q#1%1<"B`@T``/)D9.0!``1#05-5!'0J@*L",RF0F0```%!X.8#D`@),'
  866. M4ZRTX=X:R:*"Y`("3%-(+B!P-)70&JRTX=X:":TQDP("```````S`T@N(,`T7
  867. MA>0"`D=39ZO!2AONK7&V&C,I$````````"&`Y`(!5.ZM@>0"`DQ3K+3AWAH)7
  868. MK8$P*D@N(,`TY2TJ2"X@<#3EWAIGJ\%*&^ZM<;8:,RE0F0``````0(#D`@),U
  869. M4P6UX=X:":V!,"I(+A#0B>0"`DQ3":W!2AONK9'0&O.B@N0"`53NK8'D`@),^
  870. M4T@N('`TE=`:K+3AWAIGJ[$2`[@JD"PJ,RF`F0````!),X#D`@)'4P6UX=X:\
  871. M":TQDP*6"0````!``=ZB@N0"`D=3[JU14!ONK9'0&ERC@N0"`53NK8'D`@)'!
  872. M4P6UX=X:9ZLQ+RI(+B!P-(7D`@)'-0FMP4H;[JV1T!HK,8"K`C,I@)D`````3
  873. M*4'I+2I(+B#`-.7>&JRTX=X:,RDP```````1,H#D`@)'4ZRTX=X:9ZLQDP("P
  874. M```````$`=ZB@N0"`DQ3[JV!Y`("1U,)K<%*&^ZM<;8:,RE@F0``````->`MZ
  875. M*D@N(,`TY=X:2"X@<#1UMAJLM.'>&@FM,9,"E@D```````$)K3&3`I4)`````
  876. M```(2"X00.7>&D@N('`TQ4H;[JV1T!HS*5"9``````"`@.0"`9VLM.'>&@FM&
  877. M,9,"E0D```````?>HH+D`@)'4^ZMP4H;[JUQMAHS*5"9``````!0@.0"`53N-
  878. MK>$M*D@N(,`TY=X:K+3AWAIGJS&3`I4)```````#2"X@P-2$Y`("3%,)K<%*\
  879. M&^ZM<;8:WJ*"Y`("1U-(+B!P5)/0&@6UX=X:":WA+2H(HX+D`@)'4^ZMP34J,
  880. M2"X@<$3CWAH)K3$O*D@N('!4X]X:9ZO!2AONK7&V&C,I4)D``````""`Y`(":
  881. M1U-(+B!P))/0&JRTX=X:":TQDP*5"0```````MZB@N0"`D=3[JWA+2I(+B!P3
  882. M)./>&@FM45`;[JV1T!HK,;`2`_H%0-"4-#5$T-D"'C:"A1HL*E`!`%=!250@3
  883. M+BXNR:)"6!I(+B!`E(7D`@%-2"X0D(7D`@1*1$%9':.2T!J'^X'D`@),5$@N/
  884. M($"EE=`:2"X@0,24T!I(+C!@)$,SDP(!``````!``@6O<;8:5#:"Y`("2D1YA
  885. M-M+,(#,I`````````!5PMAI'HU+P&J.[<30J[JU!*RI5O9$L*F>K0:<"+"K0E
  886. M``!3=6X@+"K0``!-;VX@+"K0``!4=64@+"K0``!7960@+"K0``!4:'4@+"K0;
  887. M``!&<FD@+"K0``!3870@*S'0NQ_&UX'D`@%9'ZJQL!RXR7&X']ZB<K8:,RD0;
  888. M````````$.#`'RVP<;@?2"X0T.3>&D@N$)#UH1IGJ]&['S,I(````````!#@"
  889. MWAH%KX'D`@)$66>K,>PB2"X0D$4K*K[KH>\BE:E1_2*]^Z$^'`O+<;8:5#:"8
  890. MY`("1%1Y-M+,((;$@>0"`DI$,RE@````4%11))#0&H?[064C2"X0,)1G(\T,Y
  891. M,I,"!``````E90,%KT%E(T@N$$"79R/-#(+D`@)*1$@N0*!4I52%Y`("3%1(&
  892. M+B!`I970&D@N($#$E-`:,RD``#4)>7,"$.#>&F>K@>0"`I9-,RD0````````L
  893. M%5#P&F>K@>0"`T8R-%0V@N0"`E-4>3;2S"`^OT%E(T@N(%!%E6<CS0R"Y`(!\
  894. M=,FB<K8:5#:"Y`(!5'DVTLP@,RF0F0```#1D8#"3`@D`D!(0`68#2"X0,.3>Q
  895. M&F>K,9,"!0```#`T1P,S*7````"1DW`4@.0"`4/NK9'0&C,I4`````!RD'<P;
  896. MDP((```Q"7ES`D@N$##DWAIGJS&3`@4```!@$I,),REPF0``A7<W)X#D`@%#_
  897. M[JUQMAHS*9"9````(P`4,),""```<V$#101(+A`PY-X:9ZLQDP($`````%8X/
  898. M!3,I@```<#)A512`Y`(!0^ZM<;8:,RE``````!!35C"3`@<``#")@#`"2"X0:
  899. M,.3>&F>K0:<"2"X@<%2#Y`("1S1(+B!P)(/D`@)'4T@N(,`TA>0"`9U(+B#`1
  900. MU+02`YG#$4PC;2X0D.9A(\FB<C0JH#'2Y@(!:J.[,9,"`@``````8`/NK='FF
  901. M`@%I;2X0H&9\'<T,PB0C,RE``````(!"A#"3`@$``````'`$2"X00.7>&@FML
  902. M$3<J2"X0T%E0&^ZM<;8:,RDP````````-E#P&E0V@N0"`9-Y-M+,($@N0#`4T
  903. M-%6U]QS8^^$[&KW[X3L:#OSA.QK!--+F`@%7;2X04-7F`@%6'C;2Y@(!5VTNQ
  904. M$%#5Y@(!5MZBT@(;":U!-QL%KT%J&T@N(,`T=;8:2"XP8#1C0V4C2"X0P)AG&
  905. M(\T,TN8"`59M+A!013<;!:]!:AM4-H+D`@&2>3;2S"`S*0````!0(0`0T.8"9
  906. M`55TL^'>&E0V@N0"`7)Y-M+,(#,I$````````!99+1Q(+A`@65`;2"X0P%A0(
  907. M&^ZM@>0"`9*LM('D`@&3K+3AWAI(+A`@65`;2"X0,%E0&T@N$,#(2AONK>'>K
  908. M&F>K8>8=,RD0````````%DDG'`;=@>0"`T8S-E0V@N0"`I93>3;2S"#8^^%?/
  909. M(_XUDF,C*S%`E@`$3D]6002=+>!A(X;$P:(",0#@%#25)`5B%^,2`P(2DY,CT
  910. M`R*6![(TQ:("&P"@,!3&5N9&%B8'TH/D`@)*1V>K<;8:+"HP`0`*1$Q35"`]L
  911. M2"Y`0,0T176V&F>KP:("'0"@0)765@:B]>96!M*#Y`("1%IGJW&V&BPJ<```#
  912. M"F>K@>0"!$Q)4U0+RW&V&EBHD2PJA*4Q+RJDI9%C(RLQL!,`!5-%5%50!9TME
  913. MX&$C,RD0````````0DDG''0J0*<"+"K0``!$051%G2W@82,L*M`"`$1!5$4MY
  914. M9F]R;2!$1"!-32!965E9+"H0`0`Z1$%413K*)++W'$@N0,"4-$5%IP+)HC(OZ
  915. M*BLQX,`?!]1!IP+)HN(M*BLQX,`?!]1!IP+)HI(L*BLQX,`?!]1!92-(+D#`0
  916. ME#1%E6<CS0R"Y`($3D]603DVLA(#*S%`IP(L*M```%1)346=+>!A(RPJL`(`E
  917. M5$E-12UF;W)M870@2$@N34U34RPJ$`$`.E1)344ZRB2R]QQ(+D#`E#1%1:<"E
  918. M\Z+B+2HK,>#`'P?4064C2"Y`P)0T195G(\T,@N0"!$Y/5D$Y-K(2`RLQ0*<"W
  919. M+"KP``!,051)5)TMX&$C+"K0`@!,871I='5D92!I;B!D96-I;6%L<RPJ4`(`5
  920. M"BTY,"`@/"#8(#P@(#DP"F>KP:(""P"@@ZVC3")[SX'D`@1,25-4="K@+2K)@
  921. MHK(2`P[\<4`=5#:"Y`($3$E35'DVTLP@2"Y`X/1D%91C(RLQL!(#="K`H@(-@
  922. M`,#TY'34V0(>-L*B`B\`P/3F=I9&5T=6!I+F!D)6-I;6%L8VQZ("&0"@<%4V/
  923. M1]?C5G:F<+8:+"JP```ZECK*)++W'$@N0,"4-$5%IP+>HC(O*BLQX,`?!]1!/
  924. M92-(+D#`E#1%E6<CS0R"Y`($3D]603DVLA(#*S%`IP(L*M```%I/3D6=+>!A]
  925. M(W0J0*<"+"K0``!54T52G2W@82,L*M`"`$EN=&5G97(@("TQ,B`@=&\@(#$RT
  926. M+"J0`0`*5V5S=#UN96<*9ZO!H@(;`*!#E=96!J+UYE:FHTPB>\^!Y`($3$E3=
  927. M5'0JX"TJWJ*R$@,._'%`'50V@N0"!$Q)4U1Y-M+,("PJ,`$`(%5S97(G<U0VX
  928. M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@L`4#1%U=D"'C:"Y`($-
  929. M3$E35'0JX"TJWJ*R$@/:HW)`'50V@N0"!$Q)4U1Y-M+,("PJT```($535%0V@
  930. M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@L`,#1%U=D"'C:"Y`($%
  931. M3$E35'0JX"TJWJ*R$@/OHW)`'50V@N0"!$Q)4U1Y-M+,("PJT```($-35%0VM
  932. M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@L`T#1%U=D"'C:"Y`($M
  933. M3$E35'0JX"TJWJ*R$@,$I')`'50V@N0"!$Q)4U1Y-M+,("PJT```($U35%0VX
  934. M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@L``#5%U=D"'C:"Y`($]
  935. M3$E35'0JX"TJWJ*R$@,9I')`'50V@N0"!$Q)4U1Y-M+,("PJT```(%!35%0V:
  936. M@N0"`D1:>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@T`(!0TM-39`AXV0BLJO
  937. MEA&"Y`($3D]603DVLA(#*S%`IP(L*K```$%35)TMX&$C2"Y`P)0T146G`MZBK
  938. MXBTJ*S'@0BH'U$%E(T@N0,"4-$659R/-#,*B`@T``!(T145E(T@N($"DE6<C@
  939. MS0R"Y`($3D]603DVLA(#*S%`IP(L*K```$A35)TMX&$C2"Y`P)0T146G`MZBP
  940. MXBTJ*S$PDP(!````````D0?4064C2"Y`P)0T195G(\T,PJ("#0``@C1%164CL
  941. M2"X@0*259R/-#(+D`@1.3U9!.3:R$@,K,;`2`UT1@N0"!$Y/5D$Y-K(2`RLQN
  942. M0*<"+"JP``!%4T.=+>!A(W0J@.0"`DQ42"X@0,2$Y`("EDU(+B!`I87D`@'85
  943. M2"X0D(7D`@%-2"X@0)2U$@/!--+F`@%I'C:"Y`($3$E35'O/,;\?/K^1+"I<?
  944. MHP(:(VTN$*#6Y@(!:6TN$*!F?!W-#(+D`@1,25-4="HP+RKSHK(2`T@N(,!$G
  945. MY?$;2"X@0*65T!I(+B!`Q)30&D@N,&`D0W-`'50V@N0"!$Q)4U1Y-M+,($PRN
  946. MXE\CWJ)B&2$Y-K(2`RLQ0*<"+"KP``!$3"Y/3ITMX&$C+"JP```@3TY4-H+D!
  947. M`@1$3%-4>3;2S"!(+D#`E#1%1:<"\Z*2+"HK,9`L*@?4064C2"Y`P)0T195GP
  948. M(\T,@N0"!$Y/5D$Y-K(2`RLQ0*<"+"KP``!$3$]&1ITMX&$C+"K0```@3T9&5
  949. M5#:"Y`($1$Q35'DVTLP@2"Y`P)0T146G`O.BDBPJ*S%`*RH'U$%E(T@N0,"4O
  950. M-$659R/-#(+D`@1.3U9!.3:R$@,K,4"G`BPJ\```2E5,+D.=+>!A(RPJ,`$`H
  951. M($I53$E!3E0V@N0"`DI'>3;2S"!(+D#@]&05E&,C*S&P$@-T*L"B`@\`<"15[
  952. MY#+4V0(>-L*B`AD``'(D573T))44Y$1E(T@N(*!TE&<CS0R"Y`($3D]603DV"
  953. MLA(#*S&P$@-=$8+D`@1.3U9!.3:R$@-0#D`P%$041-#9`AXV8D@<;;L13"-MZ
  954. M+A"@Y&$C;2X0H)0L*F>K<30J!:\QNAM'H^+>&K2B4M4;R:)RMAIT*L"B`@T`'
  955. M,%7G!L*B`@T`T/3F!L*B`@T`0%57!L*B`@T`<%5&!L*B`@T`0(56!\*B`@T`\
  956. M8"27!L*B`@T`,!5&![(2`[W[87P=PRZ"Y`("2D>XR3&3`@$````````!<NFA8
  957. M[R*=+=#F`@%*,RDP`````%!Y1)#0&C,I0````%!"4C90\!IMNS&3`ID)````+
  958. M`%`'[JW1,2IGJ]&V&S,I$````````#>0T!IM+A"@=+8:*S%0^R)M+A"@5/TB@
  959. MA_LQDP(!`````%"2!0FM<;@?,RD@`````%!2-E#P&FV[,9,"`@`````E90/N'
  960. MK9'0&FV[<;@?':-RMAJ'^S&3`@$```````8#!:_1MALS*1```````&`PX-X:6
  961. M":W1MAO)HG*V&KW[,9,"F0D```````5GJS&3`@$```````8#!:_1MAO>HG*VO
  962. M&H?[,9,"`0``````(`$%K]&V&S,I$````````!+@WAH)K9$L*F>KX<`?,RD@)
  963. M`````%!2-E#P&FV[,9,"`P`````@<00)K7&X'X?[\:$:,RD0````````$-"[O
  964. M'PO+@9L<A_OA+2IGJ^'`'P[\T0(;A_LA,RJU_.'>&AVC4LL?'ZIQMAJ]^S&3T
  965. M`@(````````![JU1\!H(HU++'V>KX<`?PRY"*RJ^ZZ'O(I6I4?TBO?NA/AP+9
  966. MRW&V&H;$X5\C.3:R$@-[!$"@1!241=#9`AXV8D@<P332Y@("1%EM+A#0U.8"V
  967. M`5D>-C+L(FTN$-`T+RJ;[:'O(ITMT.8"`4WSHI+0&FTN$)"U$@.U+]+9`FTNE
  968. M$-`4-RIGJ]'F`@%9R:*2T!HK,5#](H?[,9,"`P`````@<01GJS&3`@(`````F
  969. M)64#[JW1MAL._#&3`@$```````8#[JTQDP*9"0``````!6>KT;8;,RD0````L
  970. M````6=#F`@)$66>K<;8:9ZMQN!\._#&3`@(````````!!:\QDP(!``````"0,
  971. M!&>KT;8;,RF0F0``````=>#>&FV[,9,"`0``````@`,)K9'0&BPJ$`$`1W)E(
  972. M0V%LOB72NQ\L*A`!`$IU;$-A;+XE,NPB2"X@H'2$FQQ'HR*7'OHNTMD"O?N!M
  973. MO1\K,5#[(MC[4?TB_C628R,K,<`G``5.05-)4@6=+>!A(W0J0*<"+"K0``!*0
  974. M1$%9G2W@82-(+B!`E(7D`@%-2"X0D(7D`@1*1$%9A_O1,2H)K8'D`@),5#,I:
  975. M$````````"10\!IGJ\&B`@T`H$06EN=;(CDVLA(#*S%`IP(L*M```$-/3E:=E
  976. M+>!A(T@N(*!TU+L?A_LQNAN'^S'L(C,ID)D``````%#@NQ[Z+M*['[4OTMD""
  977. MO?LQDP*9"0``````!6>KL1(#U2_2NQ\S*1`````````DX-X:,RD0````````*
  978. M$G"V&D@N,&`D0^/Q&RPJD```552^)=*['T@N0#`41!248R,K,;`2`W0JP*("1
  979. M#P`P1.4R1=79`AXV@N0"`D192"X0T(3D`@%92"Y`H$04E#63`ID)```````%Y
  980. M":V!Y`($2E5*54@N(,!$A>0"`E1:":V!Y`("1$P)K3&3`@!0DY`W)P`![JUQD
  981. MMAI(+C!@)$-SN!\>O\&B`@\`<'35-D7E6R*]^X'D`@*633,I$````````!50`
  982. M\!IGJX'D`@-&,C0>O\&B`@T`P-0T1>5;(CDVLA(#*S%`IP(L*O```%-4+D-4,
  983. MG2W@82-(+B!`E(7D`@%-2"X0D(7D`@1*1$%9,RF0F0``````4)#0&D@N0*!4)
  984. MI52%Y`("3%1(+B!@V323`@$``````%`!!:^1T!I(+C!@)$-SN!\>O\&B`@\`3
  985. M<'35-D7E6R*]^^'`'PFM@>0"`T8R-#,I``$P8U9I<IG@WAH>O\&B`@D`,$3ES
  986. M6R(Y-K(2`RLQ0*<"+"KP``!#3$5!4ITMX&$CZ_R18R,K,;`2`W0JP*(""P`P+
  987. M5>74V0(>-H+D`@1-25-#2"Y`X!3$1-4Q*NK#P:(""P#`V`."Y`(!C#,I$```Y
  988. M`````!50\!H>O[&P'&>KP:("!P``@N0"`D149ZMQMAHL*M````J2/2!(+A`@)
  989. MZ?$;"\MQMAIGJ\&B`A$`H!"DE]8#@N0"`4$>O[&P'&>K<;8:+"H0`0`*06QT0
  990. M/2!(+A`0YO$;"\MQMAIGJ\&B`A,`H""5-E?6`X+D`@)220O+<;8:9ZO!H@(15
  991. M`*`P54;7`X+D`@)310O+<;8:9ZO!H@(-`*`@U0."Y`(!<@O+<;8:9ZO!H@(-<
  992. M``#"1-6#Y`("3%0+RW&V&F>K@84:R:)"6!KSHD):&H;$0:<"2"X@()6$Y`("<
  993. M4T5(+A`0A.0"`6%(+A`@B>0"`8Q(+B!@.87D`@%R2"X0,(GD`@),34@N$-")[
  994. MY`("3%-(+B!P-(7D`@)',D@N('!$@^0"`D<U2"X00(7D`@)55$@N(#!%A>0"[
  995. M`71(+A`PA.0"`D142"X@H$2T$@/^#I)C(RLQL!(#*S'0%2%(+D#@]&05E&,C8
  996. #*S$`!
  997. ``
  998. end
  999. END_UU
  1000.